home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_90-04_1990_-_de_Side_A.d64
/
[u] horizontal
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
57 lines
0 poke53280,0:poke53281,0:print"[147][154]":gosub80
1 print"[196]ieses [208]rogramm dient zum [197]rstellen von
2 [153]"horizontalen (NULL)crollscreens aus mehreren
3 print"[205]ulticolor-[197]inzelbildern.
4 [153]"str$ie peekilder muessen alle den selben
5 print"[198]ilenamen besitzen, dem dann die
6 [153]"laufende (NULL)ahlnummer folgt, z.b.:
7 printchr$(34)"pic1"+chr$(34)
8 printchr$(34)"pic2"+chr$(34)
9 printchr$(34)"pic3"+chr$(34)"
10 [153]"usw.
11 print"[196]ie [198]arbinfo's werden nicht benutzt!
12 n$[178]"":[133]"ascilename";n$
13 [139]n$[178]""[167]12
14 [153]
15 an[178]0:[133]"atnnzahl der peekilder (2-16)";an
16 [139]an[177]16[176]an[179]2[167]15
17 [153]
18 ze[178]0:[153]"(NULL)ieviele gueltige (NULL)eilen besitzt jedes
19 input"[194]ild (2-24)";ze:ifze>24orze<2then18
20 print"[211]ystemdisk einlegen und [211]pace druecken!
21 [161]a$:[139]a$[179][177]" "[167]21
22 m$[178]n$:[134]b$(17):[129]t[178]1[164]16:[135]b$(t):[130]:[131]1,2,3,4,5,6,7,8,9,10,11,12,13
23 [131]14,15,16:e[178]1:dr[178]6000
24 [158]57812"(3)",8:[151]780,0:[151]781,192:[151]782,93:[158]65493
25 [153]"peekilderdisk einlegen und (NULL)pace druecken!
26 geta$:ifa$<>" "then26
27 print"[201]ch lade...
30 [129]t[178]1[164]an:n$[178]m$:n$[178]n$[170]b$(e)[170]"*":e[178]e[170]1
32 [158]57812n$,8:[151]780,0:[151]781,208:[151]782,132:[158]65493
35 [158]24000,34000,34999,dr,55:dr[178]dr[170]1000
36 [153]n$
37 [130]:[153]"right$ch generiere...
38 dr=6000:rd=6000:hi=24576
40 fort=1toan
42 fore=1toze
45 sys24000,dr,dr+40,hi,55
47 dr=dr+1000:hi=hi+40
50 nexte:rd=rd+40:dr=rd:nextt
55 print"[196]er [211]crollscreen ist fertig generiert.
57 n$[178]"":[133]"ascilename";n$
58 [139]n$[178]""[167]57
60 [153]"(NULL)avedisk einlegen und (NULL)pace druecken!"
61 [161]a$:[139]a$[179][177]" "[167]61
62 [158]57812n$,8:[151]193,0:[151]194,96
65 y[178][181](hi[173]256):x[178]hi[171](y[172]256)
67 [151]174,x:[151]175,y:[158]62954
69 [153]"(NULL)crollscreen (NULL)tartadr.: 24576
70 printtab(13)"[197]ndadr.: "hi
72 print"[211]crollscreen laden und verschieben
73 [153]"siehe '[u] lade' und '[u] transfere'
74 end
80 print" [176][192][174][176][192][174][176][192][174][176][192][174][176][192][174][176][192][174][176][192][174][176][192][174][176][192][174][176][192][174][176][192][174]
81 [153]" (NULL)sysleft$cont(NULL)(NULL)sysocont(NULL)(NULL)sysrcont(NULL)(NULL)sysicont(NULL)(NULL)syszcont(NULL)(NULL)sysocont(NULL)(NULL)sysncont(NULL)(NULL)systcont(NULL)(NULL)sysacont(NULL)(NULL)syslcont(NULL)(NULL)sys!cont(NULL)
82 print" [173][192][189][173][192][189][173][192][189][173][192][189][173][192][189][173][192][189][173][192][189][173][192][189][173][192][189][173][192][189][173][192][189]
83 [153]" lenopyright 1989 by (NULL)aurien (NULL)oft len(NULL)cont":[142]